home *** CD-ROM | disk | FTP | other *** search
/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / geos / programming / geoCom.lnx / PATTERN SHOW_com (.txt) < prev    next >
Encoding:
GEOS ConVerT  |  1999-06-16  |  2.9 KB  |  65 lines
  1. pattern show_COM
  2. prg FORMATTED geos FILE v1.0
  3. wRITE iMAGE v2.0
  4. GEOwRITE    v2.1
  5. {$60} qUELLTEXT ZUR GEOcom-dEMODISKETTE {$60}
  6. {$60} (C)94 by denis d\hler/falk rehwagen{$60}
  7. {$60} dIE dEMODISKETTE KANN KOSTENLOS ANGEFORDERT {$60}
  8. {$60} WERDEN BEI: {$60}
  9. {$60} guss, dENIS d{$7c}HLER , gORKISTR.18 , 04347 lEIPZIG {$60}
  10. name"pattern show" : class"pATTERNsHOW v1.0" : author"dENIS d{$7c}HLER"
  11. startflag $00
  12. intvarZ{$7b}HLER,ANF,ENDE,B,D,X1
  13. bytevarE,C,F,Y1,X,Y
  14. bytevarat$39;PRESSFLAG
  15. row1920 bytevar DRUCKER
  16. row640 bytevar DRUCK
  17. labelEND,SCHLEIFE,KLICK,TASTE,AUFBAUEN,INFO,SCHLEIFE2,DRUCKEN_1
  18. cls : pattern0 : rect0,0,319,199
  19. frame122,162,317,197
  20. setpos140,179 : print"/bpATTERN v1.0/p -(C) '93 dENIS d{$7c}HLER"
  21. setpos140,190 : print"04347 lEIPZIG, gORKISTR.18, tEL.2330180"
  22. gosub AUFBAUEN
  23. mouseon
  24. @SCHLEIFE
  25. on 0 goto TASTE : on 1 goto KLICK : mainloop
  26. @INFO
  27. strnbox"/bpATTERN sHOW v1.0","(C)'93 BY d.d{$7c}HLER","dEMO-vERSION"
  28. return
  29. @KLICK
  30. interrupt off
  31. if (MOUSEDATA<>0) gotoSCHLEIFE
  32. X1=(MOUSEX/40) : Y1=(MOUSEY/40) : E=(low(X1+(int(Y1*8),0)))
  33. if (region120,160,319,199) : interrupt on : goto DRUCKEN_1 : endif
  34. interrupt on
  35. patternE : rect90,50,219,90 : frame 90,50,219,90
  36. PRESSFLAG=0
  37. pattern0 : rect90,91,219,110 : frame 90,90,219,110
  38. setpos95,102 :  print"mUSTERNUMMER "; : print(strE); : print" GEW{$7b}HLT !"
  39. return
  40. @TASTE
  41. if (KEYDATA == $F1) : goto END : endif
  42. if (KEYDATA == $E9) : gosub INFO : endif
  43. if (KEYDATA == $F0) : gotoDRUCKEN_1 : endif
  44. goto SCHLEIFE
  45. @AUFBAUEN
  46. Z{$7b}HLER=1 : E = 0 : B = 0 : C = 0 : D = 39 : F = 39: ENDE = 9 : SCHLEIFE2
  47. Z{$7b}HLER=1 : B = 0 : C = 40 : D = 39 : F = 79 : SCHLEIFE2
  48. Z{$7b}HLER=1 : B = 0 : C = 80 : D = 39 : F = 119 : SCHLEIFE2
  49. Z{$7b}HLER=1 : B = 0 : C = 120 : D = 39 : F = 159 : SCHLEIFE2
  50. Z{$7b}HLER=1 : B = 0 : C = 160 : D = 39 : F = 199 : ENDE=4 : SCHLEIFE2
  51. return
  52. @SCHLEIFE2
  53. ANF=Z{$7b}HLER : repeat : pattern E : rect B,C,D,F : frame B,C,D,F
  54. incE : B=(B+40) : D = (D+40) : incZ{$7b}HLER
  55. until (Z{$7b}HLER==ENDE) : return
  56. @DRUCKEN_1
  57. strnbox"bITTE dRUCKER EINSCHALTEN","UND pAPIER EINLEGEN !",""
  58. printinitDRUCKER
  59. if (IOSTAT<>0) : error : return : endif
  60. X=(dimx) : Y=(dimy)
  61. startprint
  62. hardcopy0,148,25,DRUCK
  63. stopprint : printdone
  64. gotoSCHLEIFE
  65.